home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sacred & Secular
/
Sacred and Secular.iso
/
pc
/
movies
/
shared.dir
/
04843_Script_checkMeander
< prev
next >
Wrap
Text File
|
1996-04-03
|
1KB
|
55 lines
global currentcast,meanderlist
global gMeanderlist, gMeanderIndex
global musicon, narron
on checkMeander
if not (musicon or narron) then
--
--
-- Meandinger with the no sound options will show each photo for 10 seconds
--
if the timer < 60 * 10 then
exit
end if
else
if isQTPlaying() then
if the movieTime of sprite 48 < the stopTime of sprite 48 then
exit
end if
end if
end if
if gMeanderIndex = 100 then
set gMeanderIndex = 1
else
set gMeanderIndex = gMeanderIndex + 1
end if
set currentcast = getAt(gMeanderList, gMeanderIndex)
set y = "0" & (currentcast - 300)
set l = length(y)
set y = char l-1 to l of y
go to frame "FullPic" of movie (y & ".DIR")
puppetSprite 7, 1
set the locH of sprite 7 = -640
puppetSprite 3,1
--set the regpoint of cast y = point(0,0)
set the castnum of sprite 3 to 2
set the locV of sprite 3 = 0
set the locH of sprite 3 = 0
if not (musicon or narron) then
startTimer
else
playsndfile
end if
go the frame
end